home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / MacTools / Pennant Fever / background_6540.txt < prev    next >
Text File  |  1989-02-15  |  14KB  |  618 lines
  1. -- background: 6540 from stack: in
  2. -- bmap block id: 20677
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Index
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   global AllDivisions,AllTeams
  9.   put the short name of the target into TargetName
  10.   if TargetName is "Schedule Date" then
  11.     -- user clicked on the date field
  12.     put LineOfMouseClick(TargetName) into WhichLine
  13.     set the cursor to 4
  14.     go to card (line WhichLIne of field TargetName)
  15.   else if TargetName is in AllDivisions then
  16.     -- user clicked on a browser field
  17.     put LineOfMouseClick(TargetName) into WhichLine
  18.     set the cursor to 4
  19.     get line WhichLIne of field TargetName
  20.     if WhichLine = 1 then
  21.       go to card TargetName
  22.     else if (word 1 of it) is in AllTeams then
  23.       go to card (word 1 of it)
  24.     end if
  25.   else if TargetName is in AllTeams then
  26.     -- user clicked on one of the check boxes
  27.     get the hilite of background button TargetName
  28.     set the hilite of background button TargetName to not it
  29.   end if
  30. end mouseUp
  31.  
  32.  
  33.  
  34.  
  35. -- part 8 (field)
  36. -- low flags: 01
  37. -- high flags: 4000
  38. -- rect: left=18 top=60 right=154 bottom=89
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 10
  44. -- style flags: 256
  45. -- line height: 13
  46. -- part name: National League East
  47.  
  48.  
  49. -- part 9 (field)
  50. -- low flags: 01
  51. -- high flags: 4000
  52. -- rect: left=94 top=60 right=154 bottom=165
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 0
  56. -- font id: 3
  57. -- text size: 10
  58. -- style flags: 256
  59. -- line height: 13
  60. -- part name: National League West
  61.  
  62.  
  63. -- part 11 (field)
  64. -- low flags: 01
  65. -- high flags: 4000
  66. -- rect: left=18 top=169 right=276 bottom=89
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 3
  71. -- text size: 10
  72. -- style flags: 256
  73. -- line height: 13
  74. -- part name: American League East
  75.  
  76.  
  77. -- part 12 (field)
  78. -- low flags: 01
  79. -- high flags: 4000
  80. -- rect: left=94 top=169 right=276 bottom=165
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 10
  86. -- style flags: 256
  87. -- line height: 13
  88. -- part name: American League West
  89.  
  90.  
  91. -- part 13 (button)
  92. -- low flags: 00
  93. -- high flags: 8005
  94. -- rect: left=357 top=118 right=134 bottom=428
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 21
  99. -- text size: 10
  100. -- style flags: 256
  101. -- line height: 13
  102. -- part name: Mets
  103.  
  104.  
  105. -- part 14 (button)
  106. -- low flags: 00
  107. -- high flags: 8005
  108. -- rect: left=357 top=148 right=164 bottom=428
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 21
  113. -- text size: 10
  114. -- style flags: 256
  115. -- line height: 13
  116. -- part name: Pirates
  117.  
  118.  
  119. -- part 15 (button)
  120. -- low flags: 00
  121. -- high flags: 8005
  122. -- rect: left=357 top=103 right=119 bottom=428
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 21
  127. -- text size: 10
  128. -- style flags: 256
  129. -- line height: 13
  130. -- part name: Expos
  131.  
  132.  
  133. -- part 16 (button)
  134. -- low flags: 00
  135. -- high flags: 8005
  136. -- rect: left=357 top=73 right=89 bottom=428
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 21
  141. -- text size: 10
  142. -- style flags: 256
  143. -- line height: 13
  144. -- part name: Cards
  145.  
  146.  
  147. -- part 17 (button)
  148. -- low flags: 00
  149. -- high flags: 8005
  150. -- rect: left=357 top=88 right=104 bottom=428
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 21
  155. -- text size: 10
  156. -- style flags: 256
  157. -- line height: 13
  158. -- part name: Cubs
  159.  
  160.  
  161. -- part 18 (button)
  162. -- low flags: 00
  163. -- high flags: 8005
  164. -- rect: left=357 top=133 right=149 bottom=428
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 1
  168. -- font id: 21
  169. -- text size: 10
  170. -- style flags: 256
  171. -- line height: 13
  172. -- part name: Phils
  173.  
  174.  
  175. -- part 19 (button)
  176. -- low flags: 00
  177. -- high flags: 8005
  178. -- rect: left=427 top=103 right=119 bottom=498
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 21
  183. -- text size: 10
  184. -- style flags: 256
  185. -- line height: 13
  186. -- part name: Dodgers
  187.  
  188.  
  189. -- part 20 (button)
  190. -- low flags: 00
  191. -- high flags: 8005
  192. -- rect: left=427 top=73 right=89 bottom=498
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 21
  197. -- text size: 10
  198. -- style flags: 256
  199. -- line height: 13
  200. -- part name: Astros
  201.  
  202.  
  203. -- part 21 (button)
  204. -- low flags: 00
  205. -- high flags: 8005
  206. -- rect: left=427 top=148 right=164 bottom=498
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 21
  211. -- text size: 10
  212. -- style flags: 256
  213. -- line height: 13
  214. -- part name: Reds
  215.  
  216.  
  217. -- part 22 (button)
  218. -- low flags: 00
  219. -- high flags: 8005
  220. -- rect: left=427 top=133 right=149 bottom=498
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 1
  224. -- font id: 21
  225. -- text size: 10
  226. -- style flags: 256
  227. -- line height: 13
  228. -- part name: Padres
  229.  
  230.  
  231. -- part 23 (button)
  232. -- low flags: 00
  233. -- high flags: 8005
  234. -- rect: left=427 top=118 right=134 bottom=498
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 1
  238. -- font id: 21
  239. -- text size: 10
  240. -- style flags: 256
  241. -- line height: 13
  242. -- part name: Giants
  243.  
  244.  
  245. -- part 24 (button)
  246. -- low flags: 00
  247. -- high flags: 8005
  248. -- rect: left=427 top=88 right=104 bottom=498
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 1
  252. -- font id: 21
  253. -- text size: 10
  254. -- style flags: 256
  255. -- line height: 13
  256. -- part name: Braves
  257.  
  258.  
  259. -- part 25 (button)
  260. -- low flags: 00
  261. -- high flags: 8005
  262. -- rect: left=357 top=231 right=247 bottom=428
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 1
  266. -- font id: 21
  267. -- text size: 10
  268. -- style flags: 256
  269. -- line height: 13
  270. -- part name: RedSox
  271.  
  272.  
  273. -- part 26 (button)
  274. -- low flags: 00
  275. -- high flags: 8005
  276. -- rect: left=357 top=246 right=262 bottom=428
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 21
  281. -- text size: 10
  282. -- style flags: 256
  283. -- line height: 13
  284. -- part name: Tigers
  285.  
  286.  
  287. -- part 27 (button)
  288. -- low flags: 00
  289. -- high flags: 8005
  290. -- rect: left=357 top=261 right=277 bottom=428
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 21
  295. -- text size: 10
  296. -- style flags: 256
  297. -- line height: 13
  298. -- part name: Yankees
  299.  
  300.  
  301. -- part 28 (button)
  302. -- low flags: 00
  303. -- high flags: 8005
  304. -- rect: left=357 top=186 right=202 bottom=428
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 21
  309. -- text size: 10
  310. -- style flags: 256
  311. -- line height: 13
  312. -- part name: Brewers
  313.  
  314.  
  315. -- part 29 (button)
  316. -- low flags: 00
  317. -- high flags: 8005
  318. -- rect: left=357 top=171 right=187 bottom=428
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 21
  323. -- text size: 10
  324. -- style flags: 256
  325. -- line height: 13
  326. -- part name: BlueJays
  327.  
  328.  
  329. -- part 30 (button)
  330. -- low flags: 00
  331. -- high flags: 8005
  332. -- rect: left=357 top=201 right=217 bottom=428
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 21
  337. -- text size: 10
  338. -- style flags: 256
  339. -- line height: 13
  340. -- part name: Indians
  341.  
  342.  
  343. -- part 31 (button)
  344. -- low flags: 00
  345. -- high flags: 8005
  346. -- rect: left=357 top=216 right=232 bottom=428
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 1
  350. -- font id: 21
  351. -- text size: 10
  352. -- style flags: 256
  353. -- line height: 13
  354. -- part name: Orioles
  355.  
  356.  
  357. -- part 32 (button)
  358. -- low flags: 00
  359. -- high flags: 8005
  360. -- rect: left=427 top=171 right=187 bottom=498
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 1
  364. -- font id: 21
  365. -- text size: 10
  366. -- style flags: 256
  367. -- line height: 13
  368. -- part name: A's
  369.  
  370.  
  371. -- part 33 (button)
  372. -- low flags: 00
  373. -- high flags: 8005
  374. -- rect: left=427 top=246 right=262 bottom=498
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 21
  379. -- text size: 10
  380. -- style flags: 256
  381. -- line height: 13
  382. -- part name: Twins
  383.  
  384.  
  385. -- part 34 (button)
  386. -- low flags: 00
  387. -- high flags: 8005
  388. -- rect: left=427 top=261 right=277 bottom=498
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 21
  393. -- text size: 10
  394. -- style flags: 256
  395. -- line height: 13
  396. -- part name: WhiteSox
  397.  
  398.  
  399. -- part 35 (button)
  400. -- low flags: 00
  401. -- high flags: 8005
  402. -- rect: left=427 top=186 right=202 bottom=498
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 21
  407. -- text size: 10
  408. -- style flags: 256
  409. -- line height: 13
  410. -- part name: Angels
  411.  
  412.  
  413. -- part 36 (button)
  414. -- low flags: 00
  415. -- high flags: 8005
  416. -- rect: left=427 top=231 right=247 bottom=498
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 1
  420. -- font id: 21
  421. -- text size: 10
  422. -- style flags: 256
  423. -- line height: 13
  424. -- part name: Royals
  425.  
  426.  
  427. -- part 37 (button)
  428. -- low flags: 00
  429. -- high flags: 8005
  430. -- rect: left=427 top=201 right=217 bottom=498
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 1
  434. -- font id: 21
  435. -- text size: 10
  436. -- style flags: 256
  437. -- line height: 13
  438. -- part name: Mariners
  439.  
  440.  
  441. -- part 38 (button)
  442. -- low flags: 00
  443. -- high flags: 8005
  444. -- rect: left=427 top=216 right=232 bottom=498
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 1
  448. -- font id: 21
  449. -- text size: 10
  450. -- style flags: 256
  451. -- line height: 13
  452. -- part name: Rangers
  453.  
  454.  
  455. -- part 39 (button)
  456. -- low flags: 00
  457. -- high flags: 8003
  458. -- rect: left=356 top=30 right=47 bottom=501
  459. -- title width / last selected line: 0
  460. -- icon id / first selected line: 0 / 0
  461. -- text alignment: 1
  462. -- font id: 21
  463. -- text size: 10
  464. -- style flags: 256
  465. -- line height: 13
  466. -- part name: Compute Clinch Dates
  467. ----- HyperTalk script -----
  468. on mouseUp
  469.   global AllTeams, AllDivisions
  470.   answer "Copy division standings to team cards?" with "No" or "Yes"
  471.   if it is "Yes" then
  472.     push this card
  473.     repeat with z = 1 to the number of items in AllDivisions
  474.       go to card (item z of AllDivisions)
  475.       click at location of background button "Change Team Cards"
  476.     end repeat
  477.     pop card
  478.   end if
  479.   repeat with z = 1 to the number of items in AllTeams
  480.     put item z of AllTeams into ThisTeam
  481.     if the hilite of background button ThisTeam then
  482.       push this card
  483.       go to card ThisTeam
  484.       click at the location of background button "Clinch Dates"
  485.       pop card
  486.       set the hilite of background button ThisTeam to False
  487.     end if
  488.   end repeat
  489. end mouseUp
  490.  
  491.  
  492.  
  493. -- part 40 (button)
  494. -- low flags: 00
  495. -- high flags: 8003
  496. -- rect: left=356 top=51 right=68 bottom=501
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 0 / 0
  499. -- text alignment: 1
  500. -- font id: 21
  501. -- text size: 10
  502. -- style flags: 256
  503. -- line height: 13
  504. -- part name: Print Cards
  505. ----- HyperTalk script -----
  506. on mouseUp
  507.   global AllDivisions
  508.   open printing with dialog
  509.   repeat with z = 1 to the number of items in AllDivisions
  510.     get item z of AllDivisions
  511.     put field "Teams" of card it into TheseTeams
  512.     repeat with x = 1 to the number of lines in TheseTeams
  513.       put line x of TheseTeams into ThisTeam
  514.       if the hilite of background button ThisTeam then
  515.         push this card
  516.         go to card ThisTeam
  517.         print this card
  518.         pop card
  519.         set the hilite of background button ThisTeam to False
  520.       end if
  521.     end repeat
  522.   end repeat
  523.   close printing
  524. end mouseUp
  525.  
  526.  
  527.  
  528. -- part 41 (field)
  529. -- low flags: 01
  530. -- high flags: 4000
  531. -- rect: left=188 top=60 right=297 bottom=254
  532. -- title width / last selected line: 0
  533. -- icon id / first selected line: 0 / 0
  534. -- text alignment: 0
  535. -- font id: 3
  536. -- text size: 10
  537. -- style flags: 256
  538. -- line height: 13
  539. -- part name: Schedule Date
  540.  
  541.  
  542. -- part 42 (button)
  543. -- low flags: 00
  544. -- high flags: 8003
  545. -- rect: left=189 top=311 right=331 bottom=255
  546. -- title width / last selected line: 0
  547. -- icon id / first selected line: 0 / 0
  548. -- text alignment: 1
  549. -- font id: 0
  550. -- text size: 12
  551. -- style flags: 0
  552. -- line height: 16
  553. -- part name: Go Home
  554. ----- HyperTalk script -----
  555. on mouseUp
  556.   go home
  557. end mouseUp
  558.  
  559.  
  560.  
  561. -- part 43 (button)
  562. -- low flags: 00
  563. -- high flags: 8003
  564. -- rect: left=148 top=311 right=331 bottom=186
  565. -- title width / last selected line: 0
  566. -- icon id / first selected line: 0 / 0
  567. -- text alignment: 1
  568. -- font id: 0
  569. -- text size: 12
  570. -- style flags: 0
  571. -- line height: 16
  572. -- part name: Quit
  573. ----- HyperTalk script -----
  574. on mouseUp
  575.   doMenu "Quit Hypercard"
  576. end mouseUp
  577.  
  578.  
  579.  
  580. -- part 45 (button)
  581. -- low flags: 00
  582. -- high flags: 8003
  583. -- rect: left=11 top=311 right=328 bottom=58
  584. -- title width / last selected line: 0
  585. -- icon id / first selected line: 0 / 0
  586. -- text alignment: 1
  587. -- font id: 21
  588. -- text size: 10
  589. -- style flags: 256
  590. -- line height: 13
  591. -- part name: Browse
  592. ----- HyperTalk script -----
  593. on mouseUp
  594.   go to card "Index"
  595. end mouseUp
  596.  
  597.  
  598.  
  599.  
  600. -- part 46 (button)
  601. -- low flags: 00
  602. -- high flags: 8003
  603. -- rect: left=62 top=311 right=328 bottom=109
  604. -- title width / last selected line: 0
  605. -- icon id / first selected line: 0 / 0
  606. -- text alignment: 1
  607. -- font id: 21
  608. -- text size: 10
  609. -- style flags: 256
  610. -- line height: 13
  611. -- part name: Help
  612. ----- HyperTalk script -----
  613. on mouseUp
  614.   go to card "Help"
  615. end mouseUp
  616.  
  617.  
  618.